home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win2K My Computer Services 1.xpl < prev    next >
Text File  |  2004-02-07  |  2KB  |  51 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Desktop\Icons\'My Computer' Context Menu"
  5. "NAME"="Show "Services" link"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0001011"
  9. "TEXT 1"="Show "Services" command in context menu"
  10. "DESCRIPTION 1"="If this option is activated, you can right-click on "My Computer" and select "Services..." from the appearing menu."
  11. "DESCRIPTION 2"="Normally Windows does only display the "Manage" link in the context menu. When you often deal with services (start, stop or check them) you will properly find the direct "Services" link useful."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16.  
  17. sF1="HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\services\"
  18. sV1=sF1 & "@"
  19.  
  20. sF2="HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\services\command\"
  21. sV2=sF2 & "@"
  22.  
  23. cName="Ser&vices"
  24. cCMD="%windir%\system32\mmc.exe /s %SystemRoot%\system32\services.msc /s"
  25.  
  26.  
  27.  
  28. Sub Plugin_Initialize 
  29.  s=RegReadValue(sV1)
  30.  If len(s)>0 then SetUIElement 1,true
  31. End Sub
  32.  
  33. Sub Plugin_CheckData(ElementIndex)
  34. End Sub
  35.  
  36. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  b=GetUIElement(1)
  38.  if b=true then
  39.     Call RegWriteValue(sV1,cName,1)
  40.     Call RegWriteValue(sV2,cCMD,4)
  41.  else
  42.     if RegPathExists(sF2) then Call RegDeletePath(sF2)
  43.     if RegPathExists(sF1) then Call RegDeletePath(sF1)
  44.  end if
  45.  
  46. ' Call IndicateSettingChange()
  47. End Sub
  48.  
  49. Sub Plugin_Terminate 
  50. End Sub
  51.